home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d18
/
gsdb21.arc
/
DB_XPL13.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-01-04
|
2KB
|
68 lines
program DB_Xpl13;
uses
CRT,
DOS,
GS_KeyI,
GS_dBFld,
GS_dBase;
var
Health : GS_dBFld_Objt;
DumyStr : string;
procedure ShowTheMemo;
var
i,
ml : integer;
begin
Health.MemoGet(Health.FieldGet('COMMENTS'));
ml := Health.MemoLines;
ClrScr;
if ml <> 0 then
for i := 1 to ml do
writeln(Health.MemoGetLine(i))
else write('[ EMPTY ]');
end;
procedure DisplayRecord;
begin
Health.FieldDisplay('FOOD','Name of Food: ',1,1);
Health.FieldDisplay('QUANTITY','Quantity: ',1,2);
Health.FieldDisplay('UNITTYPE','Type of Unit: ',1,3);
Health.FieldDisplay('CALS','Calories: ',1,4);
Health.FieldDisplay('TOT_FAT_G','Total Fat: ',1,5);
Health.FieldDisplay('SAT_FAT_G','Saturated Fat: ',1,6);
gotoxy(1,7);
if Health.NumberGet('TOT_FAT_G') > 0.000 then
write('Percent of Saturated Fat to Total Fat is : ',
(Health.NumberGet('SAT_FAT_G')*100)/Health.NumberGet('TOT_FAT_G'):5:1)
else write('':79);
Health.FieldDisplay('CHOLES_MG','Cholesterol per Mg: ',1,8);
Health.FieldDisplay('COMMENTS','COMMENTS: ',1,9);
window(1,11,80,24);
ShowTheMemo;
window(1,1,80,25);
end;
begin
ClrScr;
GotoXY(1,25);
write('Press ESC to stop, any other key to continue');
Health.Init('HEALTH');
Health.Open;
Health.Index('FOODNAME');
Health.MemoWidth(75);
Health.GetRec(Top_Record);
while (not Health.File_EOF) and (not GS_KeyI_Esc) do
begin
DisplayRecord;
WaitForKey;
if GS_KeyI_Chr = Kbd_Esc then GS_KeyI_Esc := true;
Health.GetRec(Next_Record);
end;
Health.Close;
end.